[SUM]

بسم الله الرحمن الرحيم

اخوتي الأعزاء السلام عليكم ورحمة الله وبركاته وبعد
في البداية اقدم اعتذاري لكم بسبب قلت مشاركتي معكم وخاصة في الآونة الأخيره
وكان ذلك بسبب مروري في فترة الأمتحانات
على العموم
فأننا الآن في الجزء الأول من هذا الموضوع وستتعلمون من هذا الموضوع مهارات كبيره
وخاصة في التعامل مع الأجهزة الأخرى بحيث ستستطيعون انشاء برامج اختراق وكذلك برامج محادثه
وفي معنى آخر انكم ستستطيعون بناء برامج الطرفيات
ولندخل الآن في الموضوع وقبل ان نبدأ احببت ان اذكر نبذه بسيطة عن كيفية برامج الأختراق
لكي تفهموها ولكي تعرفون فكرتها في البرمجة ولكي لايضيع بعضكم في متاهات
فطبعاً كما تعلمون ان برامج الأختراق مثل Sub7 و NetSpher و Kuang وغيرها تتكون من جزئين
الجزء الأول هو Client وهو البرنامج الذي يستخدم للنفوذ لجهاز الضحيه
و الجزء الثاني هو ال Server وهو يعتبر الفيروس ويكون موجود لدى الضحية
وطبعاً مهمة هذا ال Server فتح منفذ للبرنامج في جهاز الضحية لكي يتمكن البرنامج
التابع لهذا السيرفر من الدخول لجهاز هذا الشخص والتحكم به عبر هذا المنفذ وطبعاً
يكون ذلك بأدارة ال Server
وهذا هو مااحببت ايضاحه قبل البداية
والآن ندخل في كيفية صناعة برنامج اختراق مثل تلك البرامج
اولاً سنبدأ العمل في الجزء الأول وهو ال Client
وطبعاً هذا ال Client ممثل بالكائن ClientSocket الموجود في صفحة Internet في الدلفي
(( طبعاً يوجد كائنات اخرى افضل من الكائن الذي ذكرته ولاكن هذا الكائن متوفر في جميع نسخ دلفي ))
طبعاً هذا الكائن هو الذي سيقوم بالعمل كله
وفكرته انه يقوم بالأتصال بالطرف الآخر وهو السيرفر عبر منفذ معين نقوم بتحديده وهذا السيرفر
ممثل في الكائن الآخر المسمى ServerSocket وهو كذلك موجود في صفحة Internet
والآن سنبدأ العمل :
قم بأنشاء مشروع جديد وقم بتسميته Client ثم انزل الكائن ClientSocket على الفورم
وبعدها قم بأنزال الكائن Edit وكذلك قم بأنزال الكائن Button وايضاً الكائن Label
في الكائن ClientSocket وفي خانة Port اكتب رقم 5
(( طبعاً هذه الخانة هي لتحديد رقم المنفذ الذي تريد ان تدخل بواسطته للطرف الآخر وهو السيرفر
وانا اخترت المنفذ رقم 5 لكي لاتحدث لدى البعض مشاكل في انشاء البرنامج وطبعاً يمكنك كتابة اي منفذ
تريده ولاكن انا اخترت المنفذ 5 لكي لايكون هناك مشكلة في الموضوع ))
وبعدها اذهب الى الحدث OnConnect في قائمة Event لنفس الكائن ClientSocket واكتب الأمر التالي :

Label1.Caption:='الحالة : متصل';

(( طبعاً كما ترى ان مهمة الحدث OnConnect هو اصدار الأمر الموجود بداخله عندما يكون الكائن
ClientSocket متصل بالطرف الآخر وهو السيرفر ))
وبعدها اذهب الى الحدث OnConnecting واكتب الأمر التالي :

Label1.Caption:='الحالة : جاري الأتصال';

(( طبعاً كما ترى ان مهمة الحدث OnConnecting هو اصدار الأمر الموجود بداخله عندما يكون الكائن
ClientSocket يحاول الأنصال بالطرف الآخر وهو السيرفر ))
وبعدها اذهب الى الأمر OnDisconnect واكتب الأمر التالي :

Label1.Caption:='الحالة : غير متصل';

(( طبعاً كما ترى ان مهمة الحدث OnDisconnect هو اصدار الأمر الموجود بداخله عندما يكون الكائن
ClientSocket غير متصل او منقطع الأتصال بالطرف الآخر وهو السيرفر ))
وبعدها اذهب الى الأمر OnError واكتب الأمر التالي :

Label1.Caption:='الحالة : حدث خطأ في الأتصال';

(( طبعاً كما ترى ان مهمة الحدث OnError هو اصدار الأمر الموجود بداخله عندما يحدث في الكائن
ClientSocket خطأ في الأتصال ))

الآن انتهينا من الكائن ClientSocket و سنتوجه الى الكائن Button
في الخانة Caption اكتب ( اتصال )
وفي الحدث OnClick اكتب الأمر التالي :

ClientSocket1.Address:=Edit1.Text;
ClientSocket1.Active:=True;

طبعاً كما ترى انه عند النقر على الزر Button سيتم ادخال النص الموجود في الكائن Edit في الحقل
Text الى الكائن ClientSocket في الحقل Address وطبعاً الحقل Address يمثل رقم الآي بي الذي يوجد به
الطرف الآخر وهو السيرفر وبعدها حولنا قيمة الحقل Active في الكائن ClientSocket الى القيمة True
ومعنى ذلك هو تفعيل الأتصال بالأعدادات المحدده

وبعدها قم بتحديد الكائن Label وغير الحاصية Caption الى ( الحالة: )

والآن انتهينا من الجزء الأول وهو ال Client
طبعاً قم بحفظه المشروع ثم قم بتنفيذه
وبعدهاافتح مشروع جديد وسمه Server وقم بأنزال الكائن ServerSocket بداخله
(( طبعاً الكائن ServerSocket يمثل الجزء الآخر من البرنامج وهو السيرفر ))
قم بتحديد الكائن ServerSocket وقم بتغيير الحقل Port الى الرقم 5
(( لأن ال Port الذي سيفذ معه البرنامج الأول وهو ال Client هو رقم 5 ))
وبعدها قم بتحويل قيمة الحقل Active من False الى True
وذلك لكي يكون السيرفر يعمل اوتوماتيكياً من اثناء تشغيل البرنامج


والآن انتهينا من عمل الجزء الثاني من البرنامج وهو Server
(( لاتنسى ان تقوم بحفظ المشروع ))
قم الآن قم بتنفيذ البرنامج وبعدها قم بتشغيل البرنامج الأول الذي قمنا بعمل وهوال Client
وفي الحقل Edit اكتب الرقم التالي 127.0.0.1
(( طبعاً الرقم 127.0.0.1 يمثل رقم الأي بي المحلي لجهازك ))
ثم انقر على الزر اتصال ولاحظ عمل البرنامج
طبعاً لتتأكد من فعالية السيرفر قم بأغلاق البرنامج Server ولاحظ ماذا سيحصل للبرنامج Client
ستجد ان الأتصال انقطع حاول ان تتصل مرة اخرى وانظر هل ستستطيع الدخول ام لا

مبرووووووووووك لقد قمت بمعل برنامج اختراق خطير جداً ولاكنه لايحدث اي شي

طبعاً للذين لم يعرفوا كيف يعملوا البرنامج او حدث عندهم مشكله
يمكنهم الحصول على البرنامجين الذين عملناهما في هذا الدرس في الوصلة التالية طبعاً مع السورس
http://www.8op.com/sum/clas1.zip


الى هنا ينتهي الدرس الأول واعتذر على هذا الدرس القصير فنرجوا المعذره
لأني لااريد ان اضيعكم من البداية فسأفتح لكم المجال للتجره لكي تدركوا فكرة البرنامج
وانشاء الله سنلتقي بكم عن قريب في الدرس الثاني وسيكون دسماً انشاء الله
ولاكن يجب ان تكونوا قد فهمتوا الدرس الأول جيدا لأجل ان لاتحدث لكم مشاكل في الدروس الأخرى



وتقبلوا اطيب تحياتي اخوكم SUM

[ابو احمد]

مشكوووووور اخوي SUM على هذا الدرس
انا ان شاء الله معاك وسوف اقوم بالتجربة واعطيك النتيجة.
وارجو الاستمرار في مثل هذه الدروس كما تعودنا منك .

واسأل الله ان يجعل هذا العمل في موازين حسناتك.

[Mo7B]

جزاك الله خير
طيب اخوي
كيف اتصفح الجهاز
لني الى شفت كله اتصال وعدم اتصال والا هذا يتطلب احداث ثانيه
وبلاوي كبيرة
يجي الشرح لها

[SUM]

في البداية اشكر الأخ احمد على متابعة معنا للموضوع وكذلك على مشاركته
وكذلك الأخ Mo7B
اما بالنسبة لسؤال الأخ Mo7B
فطبعاً ستعرفون كيفية التحكم بالجهاز في الدرس القادم
وستعرفون معلومات اكثر في الدروس القادمة انشاء الله

وفي الختام تقبلوا اطيب تحياتي اخوكم SUM

[SUM]

بسم الله الرحمن الرحيم

اخوتي الأعزاء هانحن نلتقي مره ثانية وفي الجزء الثاني من الموضوع
والذي سيكتمل فيه برنامج الأختراق الذي سنعمله
طبعاً الدرس هذا سيكون تكمله على المشروع السابق اي يجب ان تكون قد قرأت الدرس من اوله وكذلك
انشاءة المشروع معنا او حصلت عليه من الوصلة
والآن سنبدأ الدرس :
في البداية قم بفتح المشروع الأول وهو Client
ثم انزل فيه كائن جديد وهو Button وغير خانة Caption لنفس الكائن الى ( اغلاق الجهاز )
ثم اذهب الى امر الحدث OnClick لنفس الكائن واكتب فيه هذا الأمر

ClientSocket1.Socket.SendText('ShutDown');

طبعاً هذا الأمر يقوم بأرسال رسالة الى ال Server وهي كلمة ShutDown

قد يدخل في ذهن البعض منا سؤال وهو
لماذا نرسل هذا الكلمة الى السيرفر وما الفائده منها ؟
وربما البعض يسأل نفسه :
لماذا لاتستطيع برامج الأختراق دخول بعضها على بعض فمثلاً لماذا Sub7 لايستطيع الدخول عبر السيرفر المخصص
لبرنامج NetSpheer او العكس ؟

طبعاً سأجيب على الأسئلة وستتحققون من الجواب بعد قليل
فطبعاً اجابة سؤال الذين يقولون لماذا نرسل الكلمة هو
نرسل هذه الكلمة الى السيرفر لكي تقوم لنا بعمل معين
وهذا العمل نعينه بهذه الكملة في السيرفر
فمثلاً نقول للسيرفر عندما تصل اليك كلمة ShutDown قم بعمل هذا الأمر
وهكذا يعني انه لايقوم السيرفر باي عمل دون ان تحدده انت له

واجابة سؤال الذين يقولون لماذا لاتستطيع برامج الأختراق دخول بعضها على بعض هو :
انه كما ترون في اجابة السؤال السابق ان نفس الذي صنع برنامج الأختراق حدد له كلمات او شفرات معيه
تكون كعملية محادثه بين السيرفر و الكلينت
مثال يعني مثلاً ان من صنع برنامج Sub7 عرف بالسيرفر انه اذا وصلت اليه كلمت hhhh يقوم السيرفر
بأغلاق الجهاز والذي صنع برنامج NetSpheer عرف بالسيرفر التابع لبرنامجه انه اذا وصلت اليه
كلمت {dsing} يقوم بأغلاق الجهاز وفي هذه الحالة لايستطيع اي برنامج ان يدخل على السيرفر الغير
مخصص له ويبقى كل برنامج يحتفظ بشفرته او كلماته الذي عرفها


طبعاً الآن انتهينا من العمل على البرنامج قم بتنفيذ البرنامج ثم قم بحفظه

وبعدها اذهب الى المشروع الآخر وهو Server
ثم حدد الكائن ServerSocket وثم اذهب الى امر حدث OnClientRead واكتب الأمر التالي :

if Socket.ReceiveText='ShutDown' then
ExitWindowsEx(EWX_SHUTDOWN,0);

(( طبعاً امر حدث OnClientRead هو لقراءة النصوص المرسلة من ال Client و امر ReceiveText
يوضع به النصوص الواردة الى السيرفر ))
لاحظ اني قمت بتعريف كلمة ShutDown في السيرفر وقلت له عندما تأتي هذه الكلمة قم بأغلاق الجهاز

طبعاً الآن قم بحفظ البرنامج ثم قم بتنفيذه
وبعدها قم بتشغيل البرنامج الأول وهو Client ثم اكتب كملة 127.0.0.1 في حقل Edit ثم اضغط على زر
اتصال وانتظر حتى يتم الأتصال وبعدها انقر على زر اغلاق الجهاز وانظر ماذا سيحدث
ستجد انك بالفعل استطعت تبني برنامج اختراق
وعلى حسب هذه الطريقة تستطيع فعل اوامر كثيره تكون لك برنامج اختراق

والآن انتهينا من العمل
طبعاً للذين لم يقوموا بالأكمال معنا يمكنهم الحصول على ماعملناه في هذا الدرس في هذا الملف
على هذه الوصلة :
http://www.8op.com/sum/clas2.zip


وهذه هي فكرة برامج الأختراق

والى هنا ينتهي هذا الدرس
وانشاء الله في الدرس مابعد القادم سنقوم بعمل برنامج اختراق عملي وخطير :)





وتقبلوا اطيب تحياتي اخوكم SUM

[ابو احمد]

مشكور على هذا الدرس.....

المهم جربت البرنامج بعد اضافة الدرس وكان تمام يعني التطبيق شغال، لكن لما اضفت زر آخر ووضعت له امر وهو اظهار رسالة ترحيبية ، لم يعمل الامر الثاني ، فقط يعمل الامر الاول .

فياترى اين المشكلة .

تحياتي لك.

ملاحظة:

حاولة التجربة على المثال الخاص بك ولكن يظهر ان هناك كومبيونت استخدمته غير متوفر عندي باسم (Variants)مع العلم اني استخدم دلفي5.

اشكرك مرة اخرى على تجاوبك.

[SUM]

اخي العزيز ابو احمد
ارجوا المعذرة على الرد المتأخر
على العموم المشكلة الي حصلت معك بسيطة جداً
وهي Variants من Uses ( طبعاً بما انك تعمل على دلفي 5 )
وذلك بسب ان هذه الوحدة اضيفة في الدلفي 6 وهي غير موجودة في دلفي 5
ولن تحدث لك مشاكل عند حذفها


تقبل اطيب تحياتي اخوك SUM

[ابو احمد]

تمام
حذفت وعمل البرنامج.
الله يعطيك العافية.

[المدني]

السلام عليكم ورحمة الله تعالى وبركاته
مشكور شكر جزيل يا أخ SUM على هذه الدروس لكني أنتظر منك دروسا أخرى معمقة كما وعدت.
ودمت نافعا.